#!/usr/bin/env gst

Object subclass: Robot[
	|nombre posicion|
	Robot class >> new: nom[
		^super new init: nom
	]
	init: nom[
		nombre := nom.
		posicion := 0@0.
		^self
	]
	algo [
                posicion := 1@1.
	        ^self
	]
]

(Robot new: pepe)algo inspect
